home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / spr97b / SPR97B.ZIP / SPR97B.EXE / CTCPS.INI < prev    next >
Encoding:
INI File  |  1997-06-19  |  7.1 KB  |  150 lines
  1. [script]
  2. n0=ctcp 5:jamforme:/dde waveout data '' $parm2
  3. n1=ctcp 5:wave:/dde waveout data $1
  4. n2=ctcp 5:waveout:/dde waveout version '' $nick $parms
  5. n3=ctcp 5:sound:/dde waveout leach '' ! $+ $nick $nopath $parm2
  6. n4=ctcp 5:AVISO:/wavplay $mircdir $+ sonido\page.wav | .ignore -tu30 $nick 4
  7. n5=ctcp 5:LISTA:/dcc send $nick $mircdir\enviar\lista.txt
  8. n6=ctcp 5:COMBI: {
  9. n7=  inc %combi
  10. n8=  if ([ %combi ] = 1 ) { set %combin on }
  11. n9=  if ([ %combi ] > 2 ) { set %combin off } 
  12. n10=  if ([ %combin  ] = off ) {
  13. n11=    /msg $nick Prueba a mandarlos poco a poco.
  14. n12=    set %combi 0
  15. n13=  }
  16. n14=  if ([ %combin  ] = on ) {  
  17. n15=    /set %pupas $parm2
  18. n16=    if (%pupas = $me) { msg $nick ┐Crees que me voy a autoflodear? | halt }
  19. n17=    /combi
  20. n18=  }
  21. n19=}
  22. n20=ctcp 5:COMBO: {
  23. n21=  inc %combo
  24. n22=  if ([ %combo ] = 1 ) { set %combon on }
  25. n23=  if ([ %combo ] > 2 ) { set %combon off } 
  26. n24=  if ([ %combon  ] = off ) {
  27. n25=    /msg $nick Prueba a mandarlos poco a poco.
  28. n26=    set %combo 0
  29. n27=  }
  30. n28=  if ([ %combon  ] = on ) {  
  31. n29=    /set %pupas $parm2
  32. n30=    if (%pupas = $me) { msg $nick ┐Crees que me voy a autoflodear? | halt }
  33. n31=    /combo
  34. n32=  }
  35. n33=}
  36. n34=ctcp 5:%fservcom:/fserve $nick 5 %fservdir %fservtxt
  37. n35=ctcp 80:PING:
  38. n36=ctcp 5:PING: {
  39. n37=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  40. n38=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  41. n39=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 6 | .ignore -tu30 * }
  42. n40=    if (%Var.ProtCtcp == Alta) { .ignore -ntu120 $nick 6 | .ignore -tu60 * }
  43. n41=    set %Var.Flooder $site | echo $nick $address CTCP PING FLOOD | unset %Ctcp. [ $+ [ $site ] ]
  44. n42=  }
  45. n43=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  46. n44=}
  47. n45=ctcp 5:VERSION: {
  48. n46=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  49. n47=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  50. n48=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 6 | .ignore -tu30 * }
  51. n49=    if (%Var.ProtCtcp == Alta) { .ignore -ntu120 $nick 6 | .ignore -tu60 * }
  52. n50=    set %Var.Flooder $site | echo $nick $address CTCP VERSION FLOOD | unset %Ctcp. [ $+ [ $site ] ] | halt
  53. n51=  }
  54. n52=  inc %Ctcp. [ $+ [ $site ] ] 1 | /raw -q NOTICE $nick : $+ $chr(01) $+ VERSION <^ScriPtteR^> ┤97 v2.0 por Akura en http://www.ScriPtteR97.arrakis.es | halt
  55. n53=}
  56. n54=ctcp 5:FINGER: {
  57. n55=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  58. n56=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  59. n57=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 6 | .ignore -tu30 * }
  60. n58=    if (%Var.ProtCtcp == Alta) { .ignore -ntu120 $nick 6 | .ignore -tu60 * }
  61. n59=    set %Var.Flooder $site | echo $nick $address CTCP FINGER FLOOD | unset %Ctcp. [ $+ [ $site ] ] | halt
  62. n60=  }
  63. n61=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  64. n62=}
  65. n63=ctcp 5:TIME: {
  66. n64=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  67. n65=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  68. n66=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 6 | .ignore -tu30 * }
  69. n67=    if (%Var.ProtCtcp == Alta) { .ignore -ntu120 $nick 6 | .ignore -tu60 * }
  70. n68=    set %Var.Flooder $site | echo $nick $address CTCP TIME FLOOD | unset %Ctcp. [ $+ [ $site ] ] | halt
  71. n69=  }
  72. n70=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  73. n71=}
  74. n72=ctcp 80:ECHO: halt
  75. n73=ctcp 5:ECHO { 
  76. n74=  .ignore -ntu60 $nick 6 | .ignore -tu30 * | set %Var.Flooder $site | echo $nick $address CTCP ECHO
  77. n75=  halt
  78. n76=}
  79. n77=ctcp 5:USERINFO: {
  80. n78=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  81. n79=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  82. n80=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 6 | .ignore -tu30 * }
  83. n81=    if (%Var.ProtCtcp == Alta) { .ignore -ntu120 $nick 6 | .ignore -tu60 * }
  84. n82=    set %Var.Flooder $site | echo $nick $address CTCP USERINFO FLOOD | unset %Ctcp. [ $+ [ $site ] ] | halt
  85. n83=  }
  86. n84=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  87. n85=}
  88. n86=ctcp 5:CLIENTINFO: {
  89. n87=  if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set  %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  90. n88=  if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  91. n89=    if (%Var.ProtCtcp == Normal) { .ignore -ntu60 $nick 6 | .ignore -tu30 * }
  92. n90=    if (%Var.ProtCtcp == Alta) { .ignore -ntu120 $nick 6 | .ignore -tu60 * }
  93. n91=    set %Var.Flooder $site | echo $nick $address CTCP CLIENTINFO FLOOD | unset %Ctcp. [ $+ [ $site ] ] | halt
  94. n92=  }
  95. n93=  inc %Ctcp. [ $+ [ $site ] ] 1 | halt
  96. n94=}
  97. n95=ctcp 80:DCC SEND:
  98. n96=ctcp 5:DCC SEND: {
  99. n97=  if (%Var.ProtDCC == On) {
  100. n98=    if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set %Ctcp. [ $+ [ $site ] ] 1 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  101. n99=    if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  102. n100=      .ignore -ntu30 $nick 6 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  103. n101=      set %Var.Flooder $site | echo $nick $address DCC Send | halt
  104. n102=    }
  105. n103=    raw -q NOTICE $nick : $+ $chr(01) $+ Lo siento, no acepto DCC┤s. <^ScriPtteR^>
  106. n104=    echo 6 -a $nick intent≤ hacerte un DCC. Presiona F4 para modificar la protecci≤n.
  107. n105=    inc %Ctcp. [ $+ [ $site ] ] 1
  108. n106=    halt
  109. n107=  }
  110. n108=}
  111. n109=ctcp 80:DCC CHAT:
  112. n110=ctcp 5:DCC CHAT: {
  113. n111=  if (%Var.ProtDCC == On) {
  114. n112=    if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set %Ctcp. [ $+ [ $site ] ] 0 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  115. n113=    if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  116. n114=      .ignore -ntu30 $nick 6 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  117. n115=      set %Var.Flooder $site | echo $nick $address DCC Chat | halt
  118. n116=    }
  119. n117=    raw -q NOTICE $nick : $+ $chr(01) $+ Lo siento, no acepto DCC┤s. <^ScriPtteR^>
  120. n118=    echo 6 -a $nick intent≤ hacerte un DCC. Presiona F4 para modificar la protecci≤n..
  121. n119=    inc %Ctcp. [ $+ [ $site ] ] 1
  122. n120=    halt
  123. n121=  }
  124. n122=  echo 4 -s $timestamp Client Port for $nick $+ : $parm5 
  125. n123=}
  126. n124=ctcp 80:DCC RESUME:
  127. n125=ctcp 15:DCC RESUME:
  128. n126=ctcp 5:DCC RESUME: {
  129. n127=  if (%Var.ProtDCC == On) {
  130. n128=    if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set %Ctcp. [ $+ [ $site ] ] 0 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  131. n129=    if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  132. n130=      .ignore -ntu30 $nick 6 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  133. n131=      set %Var.Flooder $site | echo $nick $address DCC Resume | halt
  134. n132=    }
  135. n133=    inc %Ctcp. [ $+ [ $site ] ] 1 
  136. n134=  }
  137. n135=}
  138. n136=ctcp 80:DCC ACCEPT:
  139. n137=ctcp 85:DCC ACCEPT:
  140. n138=ctcp 5:DCC ACCEPT: {
  141. n139=  if (%Var.ProtDCC == On) {
  142. n140=    if ([ %Ctcp. [ $+ [ $site ] ] ] == $null) { set %Ctcp. [ $+ [ $site ] ] 0 | .timer 1 10 /unset %Ctcp. [ $+ [ $site ] ] }
  143. n141=    if ([ %Ctcp. [ $+ [ $site ] ] ] > 1) {
  144. n142=      .ignore -ntu30 $nick 6 | .ignore -tu15 * | unset %Ctcp. [ $+ [ $site ] ]
  145. n143=      set %Var.Flooder $site | echo $nick $address DCC Accept | halt
  146. n144=    }
  147. n145=    inc %Ctcp. [ $+ [ $site ] ] 1
  148. n146=  }
  149. n147=}
  150.